home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
modem
/
atalk.zip
/
MINIBBS.ATK
< prev
next >
Wrap
Text File
|
1993-12-05
|
7KB
|
240 lines
#####################################
# #
# MiniBBS 2.0, by J. Lampert #
# & M. Papa #
# #
# An A-Talk mini-board script #
# for unattended file transfers #
# #
######### DECEMBER 18, 1988 #########
ECHO "***** IMPORTANT: Make sure TEXT TRANSFER RECEIVE OPTIONS is set for 'CR->LF'^M^J"
ECHO "***** IMPORTANT: Make sure TEXT TRANSFER SEND OPTIONS is set for 'CR/LF'^M^J"
ECHO "***** IMPORTANT: Make sure CHAR and LINE DELAY are set to 0^M^J"
ECHO "***** IMPORTANT: Make sure HANDSHAKE is set for 'X-on/X-off'^M^J"
#Modify these as needed for your modem's auto-answer cmd & confirmation signal.
REPLY "AT S0=1^M"
WAIT "OK^M"
ECHO "Modem set for auto-answer, 1 ring.^M^J"
SLEEP:
WAIT "^M"
REPLY "^[[2J^[[H"
ECHO "USER SIGNING ON!^M^J"
REPLY "*A-Talk for Windows MiniBBS 2.0 READY. Sign on.^M^J"
REPLY "User ID: "
EDITLINE
# Modify the next line with the <USERID> of your choice
IF "<USERID>" GOTO IDOK
REPLY "BAD UserID^M"
HANGUP
GOTO SLEEP
IDOK:
ECHO "^J"
#This can be modified to accept whatever sign-on code you may want to use,
#or to allow for multiple users (with their own accounts and passwords)
#or to eliminate the sign-on code entirely and simply ask for a password.
REPLY "PASSWORD: "
EDITLINE
# Modify the next line with the <PASSWORD> of your choice
IF "<PASSWORD>" GOTO PASSWDOK
#This should be modified to wait for whatever password you may wish to use.
REPLY "BAD Password^M"
HANGUP
GOTO SLEEP
PASSWDOK:
REPLY "^J*Welcome to A-Talk III MiniBBS.^M^J"
DELAY 2
# Main Menu
MAINMENU:
REPLY "^[[2J^[[H"
REPLY "^M^J^J^J"
REPLY "MAIN MENU: Type '?' by itself for help^M^J^J"
REPLY "F)ile section G)oodbye (logoff) S)hutdown ^M^J"
REPLY "B)ulletin C)hange setup^M^J"
REPLY "Select: "
GETLINE 1
IF "F" GOTO FILEMENU
IF "G" GOTO SIGNOFF
IF "B" GOTO BULLETIN
IF "C" GOTO CHANGE
IF "S" GOTO SHUTDOWN
IF "?" GOTO GIVEHELP
GOTO MAINMENU
# Help menu
GIVEHELP:
REPLY "^M^J"
REPLY "HELP:^M^J^J"
REPLY "Type F to switch to the file section^M^J"
REPLY "Type G to logoff and leave the MiniBBS up^M^J"
REPLY "Type S to logoff and shut down the MiniBBS^M^J"
REPLY "Type ? to get this message ^M^J"
REPLY "Type B to get information about MiniBBS^M^J"
REPLY " Type any key to return to the Main menu: "
GETLINE 1
GOTO MAINMENU
# Setup menu
CHANGE:
REPLY "^M^J"
REPLY "^J^J^J"
REPLY "CHANGE SETUP Menu.^M^J^J"
REPLY "1) F8N1^M^J"
REPLY "2) F7E1^M^J"
REPLY "3) F7O1^M^J"
REPLY "Select: "
GETLINE 1
IF "1" SET F8N1
IF "2" SET F7E1
IF "3" SET F7O1
GOTO MAINMENU
# File Menu
FILEMENU:
REPLY "^[[2J^[[H"
REPLY "^J^J^J"
REPLY "The FILES Section.^M^J^J"
REPLY "A)rea Change F)ile Titles T)ype P)rotocol^M^J"
REPLY "U)pload D)ownload S)how M)ain menu^M^J"
REPLY "Select: "
GETLINE 1
IF "U" GOTO RCV
IF "D" GOTO SND
IF "P" GOTO SELECT
IF "T" GOTO TYPEMENU
IF "S" GOTO SHOWMENU
IF "M" GOTO MAINMENU
GOTO FILEMENU
#
# Remember to set TEXT TRANSFER SEND Options to CR/LF, no delays anf X-on/X-off
#
#
# Show Menu
SHOWMENU:
REPLY "^M^J"
REPLY "^J^J^J"
REPLY "Type File Name^M^J^J"
REPLY "Filename: "
EDITLINE
REPLY "Starting to send file -- Press CARRIAGE RETURN at end of file.^M^J^J"
DELAY 5
TXSEND
WAIT "^M"
REPLY "File Sent -- Press any key to continue: "
GETLINE 1
GOTO FILEMENU
# Type Menu
TYPEMENU:
REPLY "^M^J"
REPLY "^J^J^J"
REPLY "Select File Type:^M^J^J"
REPLY "T) Text^M^J"
REPLY "B) Binary^M^J"
REPLY "Select: "
GETLINE 1
IF "T" MODE text
IF "B" MODE binary
GOTO FILEMENU
# Protocol Menu
SELECT:
REPLY "^M^J"
REPLY "^J^J^J"
REPLY "Select a Protocol:^M^J^J"
REPLY "Y) YMODEM Batch^M^J"
REPLY "Z) ZMODEM^M^J"
REPLY "K) Kermit^M^J"
REPLY "G) YMODEM-g^M^J"
REPLY "Select: "
GETLINE 1
IF "Y" PROTOCOL Y
IF "Z" PROTOCOL Z
IF "K" PROTOCOL K
IF "G" PROTOCOL G
GOTO FILEMENU
SND:
REPLY "^M^J"
REPLY "Type FIle Name^M^J^J"
REPLY "Filename: "
EDITLINE
SEND
REPLY "Transfer Complete^M^J"
GOTO FILEMENU
RCV:
REPLY "^M^J"
REPLY "Begin sending now^M^J"
RECEIVE
REPLY "Transfer Complete^M^J"
GOTO FILEMENU
SIGNOFF:
REPLY "^M^J"
REPLY "Goodbye? [y/n] :"
GETLINE 1
IF n GOTO MAINMENU
REPLY "Logged OFF HOLD *******^M^J"
REPLY "*GOOD-BYE^M^J"
HANGUP
GOTO SLEEP
SHUTDOWN:
REPLY "^M^J"
REPLY "Logged OFF *******^M^J"
REPLY "*GOOD-BYE^M^J"
REPLY "Shutting down modem Auto-Answer"
HANGUP
#Modify this line as needed to match your modem's auto-answer off command.
REPLY "AT S0=0^M"
STOP
# Bulletin
BULLETIN:
REPLY "^M^J^J^J"
REPLY " A-Talk MinBBS^M^J^J"
REPLY "This is a demonstration of the power of^M^J"
REPLY "the A-Talk script language.^M^J"
REPLY "Instead of compiling the code to create^M^J"
REPLY "a BBS-like program, the A-Talk language^M^J"
REPLY "can be used to create a full-featured^M^J"
REPLY "BBS program, which can be completely^M^J"
REPLY "customized to your own taste.^M^J"
REPLY "This version provides file upload and^M^J"
REPLY "download, and display of the contents^M^J"
REPLY "of text files. Enjoy^M^J"
REPLY "^M^J"
REPLY " Type any key to return to the Main menu: "
GETLINE 1
GOTO MAINMENU
# *** I N S T R U C T I O N S ***
#
# SETUP
# To use MiniBBS, first modify the sign-on code and password to suit your
# preferences, and the modem control commands to suit your modem (these are
# set up for Hayes protocols, using an Okidata Okitel 1200). If your remote
# is unable to use ZModem, the script can easily be set up to use Kermit or
# YModem Batch; if your remote can only use XModem or YModem, that can also be
# accomodated; use the RCV: paragraph's send filename acceptor as a model for
# writing a receive file acceptor for the SND: paragraph.
#
# USING THE SCRIPT
# Once the script is set up, set the CAPTURE OPTIONS to "CR->LF" and the
# BAUD RATE to whatever speed you would like to use, hook up your modem, and
# execute the script. It will then set the modem up for auto-answer on the
# first ring, and sleep until the modem answers the phone.
# At your remote station, set up your communications program for the same
# baud rate as you set on your host system, ZModem protocol (unless you
# changed that), and HALF DUPLEX! The A-Talk III MiniBBS does not ECHO what
# you type. Call your modem, and if the sign-on message does not appear
# immediately, hit return.
# Type in the sign-on code (the example in this script is "/ID FS47", which
# MUST be typed in all caps) and your password (AARDVARK is supplied, again
# in all caps). At this point, you will see the Main menu.
# Source for the MinBBS script is provided in the Script drawer and can be
# further enhanced, for example with the addition of ARexx support.